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^ JPi^H IJffift ^ -f :J- ^ 5 ^ ~ 
1 00^ t X'fzt)^h}±M LXUo 



■tz^it-^^i'^j/K LIST 




100 SCREEN 5,0:COLOR15,1 ,1 :CLS:UX=15 

110 C0L.0R=(6,3,3,4) :I=6:G0SUB 2B0 

120 GOSUB 350:PAINT (90 ,4i?) , 1 1 ,6 ;PAINT (l^i 

0,40) ,11 ,6 

130 PAINT (90,50) ,8,6:PAINT (155,45) ,8,6 

140 SETPAGE 0,1 :CLS:RESTORE 260 

150 FOR 1=15 TO 15+30*7 STEP 30:READ DS 

160 CIRCLE (I ,80) ,12,6,,,DS:CIRCLE (1,80), 

15,6, , ,1 :PAINT (I ,80) ,4,6 

170 PAINT (I ,67) ,14,6:NEXT:I = 1 

180 PAINT (1 ,1) ,11 ,6:5ETPA6E 0,0 

190 COPY (121 ,158)~(129,172) ,0 TO (200,160 

) ,1 sGOTO 240 

200 ' 

210 _OTD(T);IF T>0 THEN GOSUB 500 

220 __ONDO(N):IF N>50 THEN GOSUB 580 

230 .^HIKARI (H) :H==INT(H/4) :IF H>7 THEN H=7 

235 R=INT(RND(1)*70) ;XF R=50 THEN GOSUB 62 



240 UX=15+30*H:FOR J=0 TO 1 

250 COPY (UX-15,65)-(UX+15,95) ,1 TO (80+60 

*J,90) ,0:NEXT:Z=H:GOTO 210 

260 ' 

270 DATA 1.0,1.2,1.5,2.0,2.6,3.2,5.0,9.0 

280 ' 

290 CIRCLE (125,105) ,82,6,,, .73 

300 CIRCLE (125,134) ,8, 6:FAINT (125, 100), 1 

1,6 

310 CIRCLE (142,145) ,17,6, 1/1#3. 14, 0*3. 14 

320 CIRCLE (108,145) ,17,6,1*3.14,0*3.14 

330 RETURN 

340 

350 RESTORE 390 

360 FOR 1=0 TO 3:READ A* ( I ) :A ( I ) =VAL ( "?/H" + 

A*(I) ) :NEXT 

370 IF At(0)="(l"' THEN RETURN ELSE LINE (A< 



0) ,A(1) )-(fi(2) ,A(3) ) ,6:G0TD 360 

380 ' 

390 DATA 3D, 04, 69, 2E, 3D, 04, 35, 4B 

400 DATA 43, 13, 50,33,43, 13, 3E, 41 

410 DATA BA,00,BD,42,BA,00,89,2D 

420 DATA B6,0D,B2,3D,B6,0D,93,31 

430 DATA 65,85,34,8C,37,A2,64,SD 

440 DATA 65, 93, 42, B0, 80,82, CD, 89 

450 DATA C2,9B,92,S0,8E,97,B6,B2 

460 DATA A2,52,AA,46,A1 ,3F,9C,4C 

470 DATA 5A,4E,57,3F,49,47,53,51 

480 DATA 75, 40, 77, 5B, 82,50,85,40 

490 DATA €■,^,0,0' 

500 ' 

510 COPY (54,2)-(103,39) ,0 TO (10, 160), 1 

520 COPY (140,0)-(192,38) ,0 TO (70, 160), 1 

530 LINE (54,2)-(103,39) ,1 ,BF:LINE (58,32) 

-(98,38) ,11 ,BF 

540 LINE (140,0)^(192,38) ,1 ,BF:LINE (143,3 

0)-(188,37) ,11 ,BF 

550 FOR 1=0 TO 70:NEXT 

560 COPY (10,160)-(59,197) ,1 TO (54,2) ,0 

570 COPY (70,160)-(122,198) ,1 TO (140,0) ,0 

: RETURN 

580 ' 

590 LINE (121 ,158)~(129,172) ,8,BF 

600 FOR 1=0 TO 50:NEXT:COPY (200 , 160) -( 208 

,174),1 TO (121 ,158) ,0:RETURN 

610 ' 

620 RESTORE 670:C=64 

630 FOR 1=0 T013:REA0 A:SOUND I ,A :NEXT 

640 FDR 1=0 TO 17:SDUND0,C+I :FOR .J=0 TO 3 

650 NEXT J,I:FOR 1=0 TO 30:NEXT 

660 FOR 1 = TO 13:S0UN0 I ,0 sNEXT :RETURN 

670 DATA 64,0,0,0,0,0,0,124,16,0,0,192,34, 

10 
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HZI0 ON INTERVAL=6 GOSUB 18iZi:CLS 
110 _HIKARI (H) :IF H<:? THEN 110 
120 T=0:INTERVAL DN:PRINT"<"! 
130 _aTO(0>:IF D<50 THEN 130' 
140 INTERVAL OFF:PRINT"> "; 
150 L=340*T/10:PRINT L ; " m: "^ 
160 FDR 1=0 ID 100:NEXT:GPTO 110 

170 ' ! 

180 T=T+1 :RETURN 
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WE WANT PENPALS! 
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^v;,. NSS\ \\^ \^-^\\S '^,^^'^=^^;^ 

^ Tamako Atsuyaki f^^ pt^'^% ^ 

"^6-12-1 Minami Aoyama '^^^J^' ^ 
■S Minato-ku Tokyo 
^ Japan T107-24 



\^;\s 



^^ 







Computer Forum Magazine 

24 East Churchill Avenue Soearwood 6163 

WESTERN AUSTRALIA 



I 
I 



^ \NV^, N»;n NWv "^xX \^X NS^X^ "^i^ V^\ ^^- VNVX 

tec. ^iia^iSA'c^s. m 



Slu. Sits. BIS. iBiI0!^v 



A 


Hi! 


1 


I am a reader of MSX MAGAZINE 


1 


in Japan. 


1 


I am a boy 15 years old and 


j 


I have I1SX2 computer with 




a floppy disk drive. 


j 


Would someone in your country 


1! 


like to be a penpal with me ? 


1 


We can exchange information 


\ 


and maybe MSX programs. 


\ 


This is my address: 




Tamako Atsuyaki 




6-12-1 Minami Aoyama 




Minato-ku Tokyo JAPAN 


M 


Thank you. 



*Hello ! How are you?" 

^tifz, ^^m^ti^MSXti:<r)tz 
ij^hs MSXli:*\ MSX2^T*< 
tz{1X\ ho^B^^hit. [WlUg 
m^i^r^tzm^^X'T. KONAMI'i- 

\-'^izt^'oXi^^(T}ti^bLn^xi' 

con 5 n.—'T—>B>^X'^^l(D 
^ H'^l'^'^^X^htiXl'^i^i 

'^hSi^t')^j:<DX\ m^J^t^^^ 
AIJ. MM(nvy\-<7)ic.iWx^ 



zo'p-^x^'-y \-n—:>nrxyh 

W^nrh-^-tzMis :&J^co^Sft 
<J:^'%W'iKt^m^^Xhn\t. ^t- 

S;$;c7)MSXa.-Hf-t LXIt-Mti 



+ K+ „ ^LuSi^tXJ^S?- 






@0 ® ® & 



Conputer Forua Ragazine 
24 Bast Churchill Avenue 
Spearwood 6163 
WESTERN AUSTRALIA 

Luther De Gale 
Electrocoin Arcade Club 

81 TottenhaB Court Road 
Undon WIA lEY ENGLAND 



Kaj G Backas 
Tarkk'aflipujankatu 14 
SF-00140 Helsinki 
FINLAND 



L\ltt\ 35ia<t. ^^a5 




MSX and SPeCTRAViDEO 
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Uo^L Mzil®^0<or^§ci:- 






M256K-y hxM2l2K>y hT; 1 
K-v h ft/if; 8 t'-y hT-|t$g?r4^ 
^, iEML/z4 F'y h^-Slt L 

[-^^^LT^^-r-5- t(-4'i.„ 
SZ-SCREEN^- ^i3'mfzlZ\0t- 

tzj:i 4\ ^7!j^ b ''j: l ^ J: t 4'!^ U 
tzi-rt\ i$i. i^i^t)\ 
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10 CALL KAN J I 

20 SCREEN 7: COLOR 1,3.3 

30 LOCATE 18,2:PRINt"3i.'&?S=t7^Ji?^;Sim:?> 

IsTcfCATE 20,4:PRINT"i:7S5I^cO^Sf»?K<S^:^ 



SS ^SSeii 20,6:PRINT"3:^miC7:JSn: 

70 LOCATE ,,20.8: PRINT"lA^^3^X^j-^ ^ ^ 

^ 7*=INPut*':i> 

90 PRINT I* 

100 LOCATE 25.10 

III \l il="i:: TKIK PgiKT"SS:5: 



color auto 



ROMtmrnx'-^B^n. ttzmz 
m^^i^i tzsbizit. ^tmm 

H*CALL KANJI"T% ;||:?:K^'f 



T 7 
E A 
^ in 

I r 

:?! If 
Si 



^/cU(ZJISP-Kt-v>vPt 






?^ 



(7^ 



tMSX-DOS_hT. "M^^i^-^Xii-iz^ 1 




fc&^I^CA.'^^i^CT 



LSf ^. 



[(;;:'cnj; T 



(IA:^LTl.^<cD*^^lSL 



[SR^CEl =t^-?:|g|H^i:#-r^: 



5s icBEEri I .COLOR 1,3,3 

30^LO■:STe_iB.3■PR^nt^'■t■^^*>*i«5^BB-: 







n-rfn^ynbimnn. 
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FM^MV-i-Cmfi 



mm — hti^i-h^^i. ifz. 
1^ %( - 1^^ ^ -r > 5^ - 7 X -r 7. ( J 

;iX. FM^;^X-y-A^^<7)ftfeC75 

9^yv^psGc7)3^T'. -a-tj-y- 

y'^7.^ U XAcTJ^feA^ 5 §7°^ 

-^ 5 U um-:kX] 4^ J i?|5jB#^?& 
T-^ -5 J: T lztA:^tj{-ftj:(Dtz ! 

X'mi^tzztti%^^'ll ^n, 

V7 h^^ib^^?nXL^-& ^FM 

•>j(K&LTFMPAC/~^)lZ.^A''j: 
^l^Silt^BASlCfym-oij'-oXtz 
t'\ ^C7)t^-Uo FMPAC^^'?#-^ 
Tl^-5FM^ig}/i;SBASIC^>MSX 
(ni^^tf£r>XLSi-r>tz. tl'O 

FM^;Jgc7)FM(i. FM^t^tt)' 
FM-:k:Wtt!\ 7v7|-ff)FMtL\9 

Frequency Modulation^ JUi^iSft 



LIST 

10 SCREEN 0:KEVOFF 

20 CALL MUSIC<1^0.1,1,1> 



50 
60 
70 

110 
120 
130 

140 
150 
160 
170 
130 
190 

200 

250 
260 
270 



FOR 1=0 TO 3: FOR J=0 TO SL 
READ S*<I^J>:NEXT J^ I 



FOR 1=0 TO SL 

PLAY#2.S$<:0, I>,S*C1, I>,S*<2, I>,S*<3 

NEXT: GOTO 120 

DATA tl88vl5o514 
DATA C4.c8r2r8e4,c<g> 
DATA C4,c8r2r8e4.c<g> 
DATA d4-d8n2n8-f4.d<a> 
DATA d4.d8r2r8d4-<bg> 

DATA tl88vl3o418 

DATA c<bg>c<bg>c<boi>c<boi>c<bqi>c 



• CALL MUSlCi-f, l3.A.(n-j,'-^<r>'-hi ij'jri 

'J:^T'Tte. Fwm'M(7y^'¥^}izm 
LTW;l(i'„ — il(;)-\'v/\(7)->> 

MSX2+_LXc7)FM^i^!7);^'<'y 
^^-IttSJLXfJSSLio^ 

•> ZL u - ^5- ^^'^djij (C3t^ XL^ -5 

[;fflS^nxl^^ — ^Plfflfgx 
mMLXLil^iiLtzt\ hU 
5^>7°>:^)>7'>i:^.^^A(i, ^ 
^-§-c;5*MUSICt:°a t:°3"c75a-:^ 

izmt <mmLx$ii) ^-r^x. 
fi3b\ 'J:^tfflSJIISJ4■(nX'55'J 



±iz$i^i^gfj::^M^ii^ mmz 

tcDt&mBAs\c^i^m Lx^fzm 

Ki:(Dtz.'XALL MUSIC"^■5L^(i 
"CALL V0ICE"^LX*PLAY"3^^ 

(i, i^*c75PLAY:ft:i:(5£^^>;b 

_tT-f vnx L S 1 ;hlt'i-c7)fc; 

?x. ::(;)FMS-;^c7)-/-A?'j:;:", 
y 7 h _bX(7)jt>fjsx$) {; t -rf)K 

t'^f£'DX\-^i}(7)Xl,J.O ? (i 



L^„ MSX<75FM^;i(;j^^LXl^l) 
V7 Mlli. 8^^^*<@EPC75. 

'Msx MUSic^^j;S"£LVTr>t;t: 
ti\ t'zt!Hzm7jk^nxi'^^(Dx 
"Tc Msx Musicj^i;Si:*^^nxL^ 

?>V7h(±. FM^iJ^CT^^-r^Tigl 

(j; *^':i-U(7),^^gX':^^=?aLs 
iz. h^'^tuz=Afy<mtz^x. 
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(zife.lK'^/Rx^p 






fz(Dit. L^SJT-(Z)VDP (Video 
Display Processor's 'Kiii®^ 

fzizm'^t'imia^ntz'jssssizt)-' 

t}r>-tzti^hfz- tniZthfl-^T 
-~SET SCROLL" tV^n^7'~V 

SET SCROLLlZ-Ol^T^J:ot/'^J 

bT-fe, ;^^a— JL-L/"zL> K-:^ h 

~ nx-, lum:i;&;t b t'U ^ ^ n 

y-/;L. SCREEN0(7)i:#(J. tW^ 








•-f-olii), AAt 'M-Jo'MJ'xL'i- 






tiZfy-<. AL^b-tlf^C7)"MSX" 

(D P 3"?5*:i;&^^ b^--y^ttiX# 
*'SoX < ^t'h^^mtzn^^ 










^©S*^ ^5l ^5MSX(zl|■rS33iS 



t^tz\i\:.^h'^tzi^-fi^^ \ t 

^.^ All fe /I^/I^i^,£X$ ■& J: 



iiUmi^fcliS-oXi^T, ^it-x- 




ti:'J^tfxi.^-&J;Ti;. 

^t=b-■^bX^^^^■=l;L 

^j:t'CT7"7'iJ -!?-—■> a >V 
'Jmz'hO^ \ii>^^7.[Z hW 

miztii>L. u^^'d.1^l^ 

^•iia,£LXMSX^i$L^C 
y-A(z LXfo.FM^ig^ti^ 

^p-jK7)?g-itx, sf^-r^^i 
u/;!t^?:i^'[±ix< ^K\:^^£\.^t-U-. 

I ^ S Hi X L ^ -S> ->--A X F M J^j;Dt?) t 
c7)^J:^X. f?pt|iS^^x pV ! t) 
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MsxQ+mm^miz 



^uomMum^it. treic/v-Ke^icMsxro 

Msx(7)^\-K^\ ^if-tm 

TMSXtT, itr>--l^£A,T'h 

T"# * J: -9 (Iff T T^§ ^T■-r 

hiUX^L j.-,cn(J, MSX 

=r-|^0^^(7)Ct(i; MSXCT) 
:^-h Uvv7.n.y htJ. fart 

T-5L, Write E^-AT^'fo^So 

-?±rtc75Msxr^fi^«-gR^E 



T'fcMSX(7)Pf<#[;J(t^ 
f75MSX?rSr3-T'fFoT 

■>7i-t %;lXfc^miiT' 

'enXlt^^fzhX'T-y^±[f 
h'i^^t. \'V'^XMzt:Lht\ 

i^--^^k,iix^^xt^. 




? ^X-A¥ L/r;«p^B(-04-UT\ 
Kvi'/\'^ROM[c:^^L^x;^p•y 

[slSS^^X'^fzb, $,i:(J?m. 

^■^xi^'j Lxy^/\'>^^-ox, 

f^U-p ! /z/zMSXtX^M^ 
I ^ -5 ( i L ^Pt -^ *j -^ 1 '^^ 'J ff ;^^ b , 

^o/-'(tt't^ c^L^^fjl 

^X\ L^^^^J:<>$'-7I-f 



^d:A.tt>^LX<tz$\.^^}i, Oj 




.««*t7^ 



^'iV^ 



tlSn, %■P^i:^A-aJT■5Tt -i. ■yymi-^\S'<''£l'A.tit^hi3r> \ 



^^ 



»^ 



PLAY 



tJ-<hj03'JVi^msh#3 







•^-a<^XPwH72/> 




122' iif T X a /; 'tJ - < ^ff) y 7 h M ? A- 



^P{?'5A(Z)ffiL^7^ 



to {E^^-^^^ttmi-f^mnt' 



{l^zttn-^S-ta^x. U^^i 

m\:^t^^tmr>fzt$ii. v-c^ 
hUzt^i)^mz^}X't. i^m^t 

\mr>fz1^^\Zl-^X'-m^-tt. 



AND BE=0 THEN BE=1 :CR=CR-1 :60SUB 1570:BOTO 1218 
AND BE>0 THEN GOTO 1218 



1080 '/* ^-Tj J 2n^VlV-•J #/ 

1010 CLEAR 300,&HBFFF 

1020 SCREEN2:CC=5:C0L0R 15,CC,0:CL5 

1030 OPEN "GRP:" FOR OUTPUT AS #1 

1040 GOSUB 2270 

1050 DEF USR0=8(HC000:DEF USR1=&HC003 

1060 DEF USR2=&HC006:DEF USR3=!<HC009 

1070 GOSUB 1640 

1080 R=RND(-TIME) :CR=50 

1090 GOSUB 1570 

1100 '/# MAIN */ 

U10 R=INT{RND(1)*10) :IF R=5 THEN P1 = INT (RND ( 1 )*10) :P2=P1 :P3=P1 :G0 

TO 1150 

1120 P1=INT(RND(1)»10) :IF Pl=01 THEN GOTO 1120 

1130 P2=INT(RND(1)#10) :IF P2=02 THEN GOTO 1138 

1140 P3=INT(RND(1)«10) :IF P3=03 THEN GOTO 1148 

1150 D1=P1:02=P2:03=P3 

1160 Kt=INKEY$: 

1178 IF (K$="B" OR K$="b") AND BE<20 THEN BE=BE+1 iCR=CR-l sBOSUB 15 

70:GOTQ 1168 

1180 IF K*=" " 

1190 IF Kt=" " 

1200 BDTO 1168 

1218 PLAY "V15a5L64E" 

1220 D=USR1 <D) :D=USR1 (D) :D=USR1 (D) 

1230 D=USR2(D) :D=USR2(D) 

1248 D=USR3(D) :D=USR3(D> :IF INT(RND(l)*2-n THEN D=USR3(D) 

1250 K*=INKEY$:IF K$<>" " THEN GOTO 1228 

1268 PLAY "E" 

1270 FOR 1=1 TO 5 

1280 D=USR1(D) :D=USR1(D) :D=USR2(D) :D=USR3(D) 

1290 FOR W=l TO 8:NEXT W 

1380 NEXT I 

1310 IF P1=PEEK(S<HC11B) AND PEEK(&HCUA)=0 THEN 1340 

1320 D=UBR1 (D) :D=UBR2(D) :D=USR3(D) 

1330 FOR W=l TO 10:NEXT WiGOTO 1318 

1340 IF P2=PEEK(!(HCnD) AND PEEK (8(HCUC)=8 THEN 1370 

1350 D=USR2(D) :D=USR3(D) 

1360 FOR W=l TO 15:NEXT WiGOTO 1348 

1370 IF P3=PEEK(8tHCllF) AND PEEKt&HCl 1E)=8 THEN 1398 

1380 D=USR3(D) :FOR W=l TD 28:NEXT W:GOTO 1378 

1390 IF P1=0 AND P2=8 AND P3=8 THEN BI=208:GOTD 1510 

1480 IF Pl=2 AND P2=2 AND P3=2 THEN BI=100:GOTO 1518 
IF Pl=6 AND P2=6 AND P3=6 THEN BI=80:GOTO 1510 
IF Pl=9 AND P2=9 AND P3=9 THEN BI=78:G0T0 1510 

1430 IF Pl=4 AND P2=4 AND P3=4 THEN BI=60:GOTO 1518 

1440 IF Pl=7 AND P2=7 AND P3=7 THEN BI=50:GOTD 1518 

1458 IF Pl=5 AND P2=5 AND P3=5 THEN BI=48:G0T0 1518 

1468 IF Pl=l AND P2=l AND P3=l THEN BI=38:G0T0 1510 

1478 IF Pl=8 AND P2=8 AND P3=8 THEN EiI=28:G0T0 1518 

1488 IF Pl=3 AND P2=3 AND P3=3 THEN BI=18:60T0 1518 

1498 IF Pl=3 AND P2=3 THEN BI=5:G0T0 1518 

1500 IF Pl=3 THEN BI = 1 :G0T0 1518 

1510 PRESET (78,144) iPRINT #1 ,BE ; "*" ;BI ;" = " ;BE#BI 

1528 FOR W=l TO 580:NEXT W 

1530 LINE (8,144)-(255,155) ,CC,BF 

1540 CR=CR+(BE*BI) :IF CR>30888 THEN CR=380a8 

1550 BE=8:BI=8:G0SUB 1570 

1560 GOTO 1188 

1578 LINE (4B,176)-(248,198) ,CC,BF 

1580 COLOR 15 

1590 PRESET (48,176) :PRINT #1/'CREDIT=" 



1410 
1420 



Tsyvv^vy 




• ?X. ^SiJl.^< bSIti lt^t£- 




• ffj S L?i ! ^i;-iz7>T-r. 



^'a(omm 



1000- 


-1090 


^;]Mig^ 


1100- 


-1150 




1160' 


-1200 




1210- 


-1380 




1390- 


-1560 




1570- 


-1630 




1640- 


-1780 




1790- 


-2260 




2270- 


-2320 




2330- 


-2520 





.m7'D? vA(75'j :s Kj, 1 n^-eejt^TJiKLTL^sr, 



^)f^T?/z'5-<^cDV7 l•m?^ 123 



L ^ ^. ^ ^ t: "^ ''j: I. ^ *^ t -f A ^ s f : 

S-To T^UfLXi-^X.rt'afe^ 




16i3i? PRESET (160,176) iPRlNT ttl,"BET = " 
1610 PRESET (li?i4,176) iPRINT #1 ,CR 
1621? PRESET (192,176) iPRINT #1,BE 
1630 RETURN 

1640 '/♦ SCREEN SET */ 

1650 LINE (0,0)-(255,79) ,15,BF 

1660 GOSUB 1790:COLOR 15 

1670 PRESET (2ei8,120) :PRINT #1 , " •— ' I " ;LINE (248, 128) - (247 , 127) , 15 , 

BF:LINE (248 , 120) - (255 , 127) ,CC,BF 

16S0 D=USR0(D) 

1690 LINE (0,0)-(255,63) ,CC,BF 

1700 PRESET (0,56):PRINT #1," r ir ir 1" 

1710 FOR I=&H1900 TO S(H19FF :VPOKE I,?(HFF:NEXT I 

1720 FOR 1=0 TO 6:AD=?(H1902+(I*32) 

1730 FOR J=l TO 3:AD=AD+1:VP0KE AD ,!(HFD :AD=AD+1 :VPOKE AD ,8(HFE :AD=A 

D+6:ypOKE AD ,S.HFE :AD=AD+1 :VPOKE AD ,«(HFD :NEXT J:NEXT I 

1740 AD=?<H1903+(7*32) :FOR J=l TO 3:VP0KE AD,!(HFA:FOR 1 = 1 TO 7:AD=A 

D+1:VP0KE AD,?(HFB:NEXT I :AD=AD+1 :VPOKE AD ,&HFC :AD=AD+1 :NEXT J 

1750 J=0:FOR I=!(HC300 TO &HC3FA:P0KE I ,J : J=J+1 :NEXT I 

1760 D=USR1 CD) :D=USR2(D) :D=USR3(D) 

1770 PRESET (72,24) :COLOR 8:PRINT#1 , "•:7-<i; d) JD^^^lb-J" 

1780 RETURN 

1790 '/* I ^ J19 #/ 

1B00 '/* 7 */ 

1810 PSET (0,0) ,15:C0L0R 8 

1820 DRAW ■■A0DM+4,+2R31D13B4D163DlG2DlGlD261D2GlD3L7U5ElU2ElU2EIUl 

E2U1E2U1E5U5L17D7L7U13" 

1830 PAINT (7,5) ,8 

1840 '/# 2Y~b' */ 

1850 PSET (40,0) ,I5:C0L0R 4 

I860 DRAW "A0BM+20,+2DlFlDlFDlF5RlF6DlFlD2FlD663LlGlL3HlLlHlLlHlD3 

F1D1F3L14E3U1E1U3B1L1G1L1G1L3H1L1H3U6E1U2E1U1E6R1E5U1E1U1" 

1870 PAINT (40+16,24) ,4 

1880 '/# BAR 1 */ 

1890 PSET (80,0) ,15:C0L0R 1 :GOSUB 2210 

1900 '/# "^97:/*- */ 

1910 PSET (120,0) ,15:C0L0R 12 

1920 DRAW "A0BM+15,+2R1F1R2FIR4E1R3D1L3D1L6U1L3U1L2" 

1930 DRAW "A0EM+6,+2G5D2GlDlGlD2BlD4RlU4ElU2ElUlElU2E5RlD10FlD4F2R 

1H2U4H1U9" 

1940 PSET (120,0) ,15:C0L0R 6 

1950 DRAW "AeBM+7,+23G4D6F4R7E3U7H4L6BRI8G4D7F3R6E4U6H4L5" 

I960 PAINT (12+120,32) ,6:PAINT (28+120 ,32) ,6 

1970 '/* :fl'jV */ 

1980 PSET (160,0) ,15:C0LOR 13 

1990 DRAW "A08M+2,+21AlR3FlR2FlRlF5DlFlDlFlD2FlD7GlD261DlGlD165LlG 

1L2G1" 

2000 DRAW "A3R3FlR2FlRlF5DlFlDlFlD2FlD7BlD2GlDlGlDlG5LlGlL2Gr" 

2010 PAINT (160+16,16) ,13 

2020 '/# 5 */ 

2030 PSET (0,40) ,15:C0L0R 8 

2040 DRAW "A0Bh+4 ,+2R31D6L24D8R2ElRlElRlElR6FlR3FIRlF4D2FlD8GlD2G3 

L1G1L2G1L12H1L3H1L2H3U5R7D2F1R1F1R1F1R8E1R1E1R1E2U6H2L1H1L1H1L1H1L 

3GlLlGlL261LlGlDlL7U2r' 

2050 PAINT (8,40+8) ,8 

2060 '/* BAR 2 */ 

2070 PSET (40,40) ,15:C0L0R 14:GQSUB 2210 

2080 '/* M'-JV' 97 #/ 

2090 PSET (80,40) ,15:C0LDR 10 

2100 DRAW "A0BM+17,+2R3F1R2F1R1F5D1F1D1F1D2F1D7G1D2G1D1G1D1G5L1G1L 

2G1" 

2110 DRAW "A2R3FiR2FlRlF5DiFlDlFlD2FlD7GlD2GlDlGlDlG5LlGlL2Gr' 



124 !lf^T^t'5-<^mv7 hM^^ 



;tP-,k-7£/> 



*^-*<5tJ»<C& 




2120 '/*— VI^Lf^-l */ 

2130 CIRCLE (120+19,40+20) ,18, 11:PAINT (120+17 ,40+20) , 11 

2140 PSET (120,40) ,15:C0L0R 1 

2150 DRAW *'A0BM+8, + 12RlUlR5DlR2BM+12,-IL5GlL161D5FlD561L3HlLlEtM-2, 

+lL2S2D2BM+5,-lR8D262L3H3BM+10,-4RlFlRlFlDr' 

2160 DRAW "fi0BM+2,-13L5DlLlUlRlUlR3BM-13,+2H2L3GlDlRlUlft4" 

2170 '/* BAR 3 */ 

2180 PAINT (80+16,40+16) ,10 

2190 PSET (160,40) ,15:C0L0R 12:GDSUB 2210 

2200 RETURN 

2210 '/» BAR */ 

2220 DRAW "A0BM+2,+5R35D2L35UIR35BM-35,+4R7DlRlOlRlD4LlDlDlDlRlDlR- 

1D1R1D662L9U18R6F2D3G1D1L5D1R5F3D4D1L1D1L8U16" 

2230 DRAW "BM+17,-2G1D2G1D3G1D3G1D3G1D3R1U3E1U3E1U3E1U3E1U3F1D2F1D 

3F1D3F1D3F1D3L1U3H1U1L5U1R5U1H1U3H1U3" 

2240 DRAW "BM+6,-4R8DlRlDlRlD5LlDlLIDlL7D10LlU18R7F2D362L6U6BM+4,+ 

BD3R1F1D1F1D1F1D1R1U1H1U1H1U1H1U1L1U2" 

2250 DRAW "BM-31,+12R35D1L35D1R35" 

2260 RETURN 

2270 '/» IVJJ' t-Th »/ 

2280 RESTORE 2330 

2290 AD=8tHC000 

2300 READ D*: IF D$='*END" THEN RETURN 

2310 POKE AD,VAL("S(h"+D$) 

2320 AD=AD+1 :GOTO 2300 

2330 '/» DATA */ 

2340 DATA C3 ,0C ,Ce,C3,78 ,C0,C3,92 ,C0,C3 ,AC ,C0,21 ,80 ,00,CD 
2350 DATA 25,C0,1 1 ,00,08,CD ,6E ,C0 ,21 ,00 ,20,CD,25,C0, 1 1 ,00 
2360 DATA 28 ,CD ,6E ,C0,C9,11 ,00,C3,01 ,00 ,0A ,CD,59,00,21 ,00 
2370 DATA C3,l 1 ,00,D0 ,CD,3E,C0,1 1 ,E8,D3,CD,3E ,C0 ,C9 ,3E ,05 
2380 DATA F5,E5 ,D5,CD ,57,C0,E1 , 1 1 ,28,00 , 19,E5,D1 ,E1 ,01 ,00 
2390 DATA 01 ,09 ,F1 ,3D,20,EA ,C9,3E ,05,F5,01 ,28 ,00,ED ,B0 ,E5 
2400 DATA D5,E1,11,A0,00,19,E5,D1,E1,F1,3D,20,EC,C9,21,00 
2410 DATA D0,01,D0,07,CD,5C,00,C9,21,05,19,DD,2A,14,C1,FD 
2420 DATA 21 ,1A,C1 ,CD ,C6,C0,DD ,2A,14 ,C1 ,CD ,FF ,C0 ,DD,22 ,14 
2430 DATA CI ,C9 ,21 ,0E ,19,DD ,2A,16 ,C1 ,FD,21 ,1C ,C1 ,CD,C6 ,C0 
2440 DATA DD,2A ,16,C1 ,CD ,FF ,C0,DD ,22,16 ,C1 ,C9,21 , 17 , 19 ,DD 
2450 DATA 2A ,18 ,C1 ,FD,21 , 1E,C1 ,CD,C6,C0,DD,2A ,18 ,C1 ,CD ,FF 
2460 DATA C0 ,DD ,22,1B,C1 ,C9,3E ,07,F5,3E ,05,F5 ,DD ,7E ,00 ,CD 
2470 DATA 4D,00,DD,23,23,F1 ,3D,20,F2 ,01 , 1B,00,09,E5 ,CD ,04 
2480 DATA CI ,E1 ,F1 ,3D ,20 ,E2,FD ,7E,00,3C ,FE,05,20,0D ,FD ,7E 
2490 DATA 01 ,3C ,FE ,0A,20,01 ,AF ,FD,77 ,01 ,AF ,FD,77 ,00,C9 ,01 
2500 DATA 05,00,DD,09,DD,E5,E1,01,FA,C3,A7,ED,42,20,04,DD 
2510 DATA 21, 00, C3,C9,F5,C3,F5,C3,F5, 03,04,09,04, 09, 04 ,09 
2520 DATA END 
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BE 
CC 
CR 

D 



DS 



ilii®C?)/\'-y^(7)g, 

OK 02. 03 

(S^^ 1^01.02.03} 
P1,P2.P3 

(:i^^'bPl.P2.P3) 
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mfpjvy^%mz^^ 



/d:^r=bA^^r=fc 




MUSIC eses! 



Ot"»>* 






iV 






^> I /^- V( F 



tj'i^Hf^ffl^+^li, DX-7DFD, 
MC-30a SFG-05. YK-20j 

A^A3fe*(C^,moT^iiLTP- 
>T'DX-7 n FD^IiAL S Lfitt^' 

ff5RS-09t;^\ t^—i'i.^t-\.<.X 
n<'bL\ ^n*^^^. DX(±$)f- 



1 = J: r) T ^' ^ 7 -f v ^ -f =1 V -r ^f 

T'feT-'v 'J /N'U(i Lui: ^ ^T'T 
ta„ xv5';L'- ^Ji'^-x^x:? 

:? — tLT. -^vy\X)^bREX50 
(49 , 800R) , SPX90 II (89 , SOOH) 

X7x^ i^^i^mLT 
SPX90 E *%n(i'^il5 

B0SSC7)/N— 7^7 ^ 
->U-Xc7), RRV-10 

Lns■y■^. 
^^T'MTR■r■-r*\ 

t^h. dBX$)^i-niK 

^^A'^g^c. 10:73 



;b^? -^V/\ TASCAM(TEAC), 
FOSTEX. MUSIC WORKS. ^L 
TVestax$)f=(J*'b. 6 - 7 TJR 

^ ^i ct ) o Ir!S^ t) <7)<7> ^ I' > ^Si ^ 



X. MIDI=i> h P-Jk 

-T-'^x-^tti L *> 'f t L^ ik 
^A•^i:fc(7)feH.\ (5;l~, P' 

MODEL^/i U t i^m^£ $^tzZt 

hhib^)xrt'\'? t, m^m^' 

■t+XUf::fi< t. ^-:ii;^POP! 
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O MUSIC eaea 




z\iFMm.m 



>yn>iiiT£Ltz^. tfzZcr)=i 

m L fzWm ') ^ h ^K-frT a U i 
Lfzt\ %i.Xfytzh. FM^M't 

^ t'n^nx l ^ s -a- ^ t l fc xr. 

^liLtm-^^^nXl^t Ltz. 
tl-7^-\'(DW^^Ml^Xl^< 1 

ztf)<X^^U$>. t. i^^^z 

^^$nfzth. m^-^xiii}s.r. 
w?zm.x(Diiimmx'^ u s l tz. 

FM^igiT) V < -tz > :^ ^Slf# L /- 17) 
?'bi::2:^f^<7)1983^. DX-7^^ 

m^ntz^imti-i ztiztjii) 

tilt<.fzl'X\.^'jt. L^^^A/j:;^ 

'j:c7)T'-r. (a^L;^. i^t-rv;^ 



u^^ hmwx^-^tz^m^mM 
tr, oi2-ofz^^u^X'tu. 



^tm%'.~~Mf}^->fzt^i.t. lES 

'?~tt>\ =^%nwf)'mtLx^^ 

<c7)T-r — ::Ti,^T~iA\ FM 
'Dmi<r>=^^. tztztzfz^±Lm 




+ -V'U7'7!)=^^LSLfco "tZ 
iz=Ei>^\^--^<D^±t^. tfz 

^^^X^t Li?. +l'iJ7'(75 

-k^nLxii. -ki^fT^^mtiH&L^ 

^j:rj f;t 1-^-5 O—^T'-r^ Xii. 

Lj; T, 4-^(j, r-st. n^^.i' 

fzXt^-1 
X'Ei>D.\^—'^(nm<^Zt^, ^ 

-rj'ii 1 mt^xh^. fzi>w^ 

X\ US)imFM^M<T>7~'<-yp[t. 

SL<r>tz^ i)<§i (J s rc7)T\ -^^ 
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nUUIxIN MULL T^^7.[^-iyBy(mi^it^^~tzrj:o^^T:-^mmbzB^z{^u^c 




UT(7);0^fcUS'ro MSXT'C7)FM^ 

z(Dmx'rt^himLxtsB t u 

J: T, 



X^X. i:^X'^^i>tl''l(nfy\ 



-x\ Dxrsgf^^^/\°7^\°vs!)< 



i-')-tfy^mf)'nxi^ito 



POPO<^;.c?^Jj 



5't^,^0UXA^ydbTl^§. f 

^:&y u*^U7?©uXAT-r^.- 



t!is^-r7t»©7U©ffl<t*\ ^a 
s. ^nrfe. titL/, •:/-A 

fee lagi©>f-AtltJ■5^^^^^>^ 
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CD MUSIC t^iHn 



I 



AilAili 



^^^ISslffiti. -n. ROCKT- 

<RocKo y ij(i. U7„ ^%^Tt 

ROCKN' R0LL(7)y 'J, 

hs ~^(DZ(Dvy \-mw. mm. 
U1X. \.^h\-^hfi^%m\w.. t 

'i- L;^(7)AXIA7^<i{I-r^, 'AXIA 
MUSIC AUDITION'88"„?]-t-y Kt^ 

-t(r)X\ t-hh^. 



^«/c[t(i(?)ypt,|M(to ^ 




T-rj:„ ^o(l ^^ti, ^(15^ 

T. mit>x^m^£^T-tx^ .;. 
^.;^^, msxt-. s/cSt/MiDim 





:<fcD:&!t 


■ 


sr^ 




Tl 07-24 




- K. #CMIDU;|16-r&/N- K 


lE.^fiS^ESWUJ6-11-1 1 


4•^■r'-r75\ l;:bl;;b^:it^T' 


^u- 


X7m»UJt'JL. ■ 


(i#i'Jir„ LtJ'L, ^■#t,< 


(tiST':^ 


+- 1 


/;$u, -=f^T^ ^^i-f¥L< 


MSXv 


A"v>S*a! 1 


X. MIDIt^*-■&^^-Kfi^^. 


MUSIC 


eat:"3coi^^A^j:fSa 1 


-ilI|§<^;$L^J:)fa. 


XlhL<i2. %tX' ■ 



ROCKIN' ROLLU7.S 



10 SCREEN 0:KEYOFF 

20 CALL MUSICd ,0,1 ,1 ,1 ,1 ,1) 

30 CALL VOICE (@24,&48,@24,g0, 50) 

40 SL=6:DIM S$<^',SL) 

50 FDR 1=0 TD 5: FOR J=0 TO BL 

60 READ S*(I ,J) :NEXT J, I 

70 ' 

110 ' 

120 FDR 1=1? TO SL 

130 PLAY#2,S*(0,1) ,S$(1 ,1) ,S*(2,I) ,S*<3, 

I) ,S*(4,n ,B*(5,I) 

140 NEXT:GOTO 120 

150 ' 

160 DATA tl70vl5o41S 

170 DATA ■f+32al?<a2.rS.t"32 

180 DATA edl6cI6edl6cl6r2r4.-f+a-f+b 

190 DATA >c<bg>gl?<g49r8d 

200 DATA cdc<3gel6dl6cdc<sa!<a2 

210 DATA r4 .>>gf +g-f+g-f+g-f+edcdcB?( 

220 DATA C4r8e-f+ar8a4e-16dl6cdc<a4 . 

250 ' 

260 DATA tl70vl5o318 

270 EiATA aaaaaaaaaaaaaaaa 

280 DATA S.AS.3.3.3.SS3.S3.S.a.3.3.d. 

290 DATA dddddddddddddddd 

300 DATA AS.3.S.aSS.S.3.3.&A&3.3.3 

310 DATA eeeeeeeedddddddd 

320 DATA B.a,A3,s3.a.sss3.a.3>B.3.a 

350 ' 

360 DATA tl70vl5D41B 

370 DATA rlrl 

380 DATA rlrl 

390 DATA rlrl 

400 DATA rlrl 

410 DATA r4 .ededededrar2 

420 DATA rlrl 

450 ' 

460 DATA tl70vllo418 

470 DATA ee++-f+ee-f+g4gf +-f+eBf +4 

480 DATA ee-f+-f+ee-f+g4g-f+-f +ee-f+4 

490 DATA aabbaab>c4c<bbaab 

500 DATA ee-f+f+ee++g4gf+-f+eef +4 

510 DATA bb>c+c+<bb>ii+<a4abbaab 

520 DATA ee-f +-f+eef+g4g++f +ee-F+4 

5S0 ' 

S60 DATA tl70vllD318 

570 DATA aaaaaaaa4aaaaaa4 

580 DATA aaaaaaaa4aaaaaa4 

590 DATA >dddddddd4dddddd4 

600 DATA <aaaaaaaa4aaaaaa4 

610 DATA >eeeeeeed4dddddd4 

620 DATA <aaaaaaaa4aaaaaa4 

650 ' 

660 DATA tl70v7gal2 

670 DATA hb)ahb!ShB!8hb!8hb!ehb!8hs!ShBh 

b!8hb!8hsl8hb I 8hb ! Bhs! BhBhs ! 16s! 16 

680 DATA hb !8hb !8hslBhb IBhb !8hb !8hs!8h8h 

b!8hb!8hs!8hb!8hb!8hs!8h8hs! I65! 16 

690 DATA hb!8hb!BhB!8hb!8hb!8hb!Bhs!8h8h 

b ! 8hb !Bhs!8hb !8hb I Bh5 ! BhBhs ! 16s! 16 

700 DATA hb!8hb!8hs!8hb!8hb!Bhb!8hs!8hah 

b!8hbl8hs!8hb!8hb !8hs!8hblsl i6s! 16hs!8 

710 DATA hb!8hb!Shs!Bh8hb!8hb!8h5!8h8hb! 

8hb!8hs!8h8hb!8hb !8hs!8h8 

720 DATA hb !8hb!8hs!8h8hb!Shb!8hs!8h8hb! 

Bhs!8hBhb! 16b ! 16hb ! 8hb !Bhs I 16s! 16h5! 16s' 

16 
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TS^c^^T^j^tL^T t- tt. BBS 

i:Eif tm-sm^ti^^Tb^^-S^ B BS 



^t$i.i. T-^-\z7.UztBiZ. 
*You have a mail \" t^yf^^ti. 

:? -f A <75 Ji L 'f '^ U ^ =Si L ^ U ^ 






=E7'hts-WJ^:fVif>Zm 






tz^i. mzmumux'^^nx $ 
tzM^^^^y ^>iz^f^'^ ^ ^£ 
r-s izm^r^'^ni3^-ii.^mz^s 



V--HBI-1200'j:t7)=^§. 
h y'u :?'^ Ac7)ffl7c?^«7^V ;^ 
tl?r-rTl::i*imLTU-5!VlSX2.fc 
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*^^^^ NET WORK 




> (DWMS^ii^'S < M A * i 9 II 'j: 
7'^ :i''i: i^T ^'Jj!j^-ol^T>.^-5„ 












l^7utr/u(Z)J5aj*U/f^! 



[it-y hLT, ij-b-y l-'1^:S'>^ 

ff^-9.MSX-DOS(7)=lV> KA:*? 



* HOST" t A:?j L T [RlTURN] +- 



IDt / \°:^ ^ - F ^f^ X -y ^ L TIE 




H7t)^6+5=fci/X7r^fe! 



mtmuommtz. ^- -y h r-mis 



C04'X'U^ ^'J:A 1 5fP U -^utc^j: 

X[i. i^TU^AtOx-f ^^r^cT^^'C 

iiltX MSX-DOScT) I] ^ > K^^ 
t7)ta. KTYPE HOST. DOCtJT"^ 
iA^. [RETURN] 4^ -^^ftt. V 



ri^'= 


**/ 


1) 




^^m 


v^ 


'^Stx^ 


^/ 




/ 




"t^ T 






\ * ^ y 


1 


^4/ 


^@^ 




Mp; 


Mj 


If 


^ 





MJ 




TAKERUrS?Pie5B^! 

SX2(VRAM128K) 2DD 4,500R 
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^5>„^C0^t*FMP-NErv 










^SPttZZ^if! 



-c7)b'Ji'C0^JzFilc, "iJi^yh;^ 

^ /b t.*'-'#i.^/;iiffl« ^ J.4-*' b . 

^'^ u - ^ -<m:'ilW. ^- -y h l^-tf 
t-^ 5 - 1 (z :^j; o t L J -5 ^ -? t't o 



$o §b. "FMP-NET' COx^'^t 




■9 T-r^\ Ct75FMP-NET?r^lJffl-r 



^i3^ 



7n9BUJnr7 Mvrsvwa 
■• #auzuKi 



-r'-<> t-tt^t.NAPLPST--K<fc-$l.^ 




tV-fzt hmA^^l^'-ih^-ki^. ffiStiSiaA'< S?iAt„ •"FMP-NET"mtJ«*.*tOifI, Hfl-afl?^t3:t^: h?i'<Pt-T-t ! 



NIFTY-servel; t7'?-t:;^T-^ JT^ 
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1-. ^3r-:- '-«irr 



^n.ti^v--y 






^0)7 U >->(z^x set fc Biftip 




• -i7)^--?it-f7,^£S;Lt/;ffi)lZ[i, gjS;V7 h ^Sil^^ A-jZ'^Tt . 






Ji-(DmiZLTl'r>Xh^^fz^r) 



tifcij-ri^xi^o 



mwrztm.-DX^^s.ifz^ xt. 
fex•#5^X't;fe-o 



z-fX"< St. -f:^7:)->- 

SAA-'MfiA'^'^X^^TS^dCfto 
TV.^TC7)A-'<E*3^T< So 




• -ZST-. ja*-< :^-?-yii.-'J >?' 



Suntoiy Reserve 






«*w NETWORK 



eSAU^J:! 













?-X, uj;LvJ;:b'^^'AoX^ 
fz^, FMP-NET;:)<ff§B^t7^--:?, 
NAPLPS^^iiX'-fo 

^ -J yti'^'L^LXi"^-^ tzitx-tj 
^nx''-^mMt)'is.t)ti^ „ 

>/\';^i:iSftco^-f>^N';^tXlS, ^ 

ftt7)T-'-tf'r>^-r-5Atv xuf 
mm(^z t ^^ < ^^^^fcAx-^'j; 

tXTo 

x^':!.-^. fiKxm\:xLt^o 

tzfzL. NAPLPSCOS^[C(i. 
mLX<tz$i\ 

a't-:'c7)7f>, -r + ^ + tfg-^ 

X<n-6EBWfto 

r^, ■r~-<^.^UX'LJ:T ? r) 
X = ;i4-< *>^fii6/-"t,go^X 
TJic 't^WoXl^9(7>[i-f^oXU 

^ATtj^'saL^t^-^x^-^x'^cL^ 






LESSh-^, MORESa-v-y 
^c7)FMJ5i£^j:bX(3:c7)FMP-NET„ 

<n^t\.^o(r>hmL^x-r^ 
xi^oa^its h-^timmnto^ 

U LXL^<«Xii'j:L^;i-t. ,©? 
A^X'T^o WbIF^XOTzi;^-^ 

^n(i^nx^:^(ii®Aet)''=rtc7) 
x-rj:*3o tn^enmrn^zim 

t"§. ife^n|lc7:)i;9'j:t)<7)X-^o 
XLa^^ttX-fo Xt. "ttitii 

mz. -m^^xmrnizmLxit. 
m}M.^izmt-h< Lxuo^iti^ 

fy^i'i^i:^-')A,X'tJ:j 
c7)Mi^^^tf§^«^/ii::til?iLX 

L^S Lfzo FWiMMi)^X'^X^^X' 

20^0 fti5J](iv-7'7:>='j:A<75fc 

a)X L ^^^'jr^^T /;FM fe^XUilK 

&<]fj:^^^.FMP~HEJlzhi^$tj:m 

^n^fz^^xrt2.o 



^mi\^^u[tz^^ 



TEL.03-221-0080(ft) 
FMP-NETfS 



I 
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VOICE-BANK NETWORK 



f.11SaA»«ff(n-l".|Nl.ll.e.F,t.E) ? 5 

*2mVBNmmAl,tt VEHHai outran M/JB/Oi 17'!I1;5(P 



x.t'T.mt. ri;bi;«-[«eI(w. aiif-LT*-*. 






^A" tS;Ea7C^$A^=-3-y ! 



#mtJ5Ili3,000A 



«»n«tj*tj, t7i-S4it i;Jsfci)'vi|,»*. 



i'<l*l«A«TiMO-l,«,lnl,K.BF. •.£) ? | 






x^ u /ziffs^a°p<7)ss^^ L T < n 
-&ct^i^'J^■a■^.t:J 

i:Xt3b-^'(=&^'j:^-vt-<^?iLV ¥ 



B03-476-544l{^V/\;"*-S-j£) 
9^A^ib^%X-r= 
A^^ 2,O0OR 







fi^X'L^■&£^.^;bn^. m^/c 
< v>->3>X1J'j:u;^M ^ 

\^mt'^tixLt'^iz, 




• tx t>f 




• «SV>vg>(D— l:5--tfl.-fc< 



iTL>ir. 



iiti'^-A- Kfrf;f;J: tTL'4, 

s^xsr^-. 

^^Lx^^X'■rJ:= 4- 
ti'^sti-M.'^ti''^'^<i.ixm 

t-* ^±feiii3ttiiiLx# 
fzm(r>i±miK. p^? 



^, txfcfcL^nx-r. 

LX. ii'^(;5VANi:(j*>j:oi:iI 

^i|^^LXL^•5^TTJ 

■"irx^nzL^tvrt^Xfclti-Jti-u 
fz»flc^A-oXLioX(J. W^ti"- 
fS^'/^X'to ttT^J^. T^Ttjy 
-^i'^t'LX<n^;ii-^(c(i. '£' 

-r^ii^ni^'j STL. 'if^^-;sffi 

T^-:)fcfJX-rj 
^^^?^^(C^||LXl^-S>^/-U, 
-f y+f>P — 7>'^. /\'U— c7)a" 

JU7 1? X r ^j: t'tm^^cy^m^x 




r^(cA^<, (sxbis. ^mu% 
iiit^i^t}^m\:hntLtz. ^k^- 



n03-463-2100 



;lXt.'b;l*'y-AX-L^;. 
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= = == ==.^ ^^= zi\tzJKyz2ym\mMm: 






8^150. 16a, 17H(7)3B 
MSX^:^'->><Z)-f'<> K 

i}'h. THE LINKS(CT^-b^„ 



HU-AC(JJ3A,t^izyi< ? 
SLme*/;o^i(tt",THE LINKScT) 

[5 -5 fc J; -5 L < ta. THE LINKS(7) 
SM4CB^:^T^i^^T^ (FLl^-^r 




iSiiA'ibTHE LlNKStn?-^ •> I- Jl--A(; 7*? -t :^ 4"?)^^**^? A, t :fj':t :] >A5^. 




!.■» -sALo^Etfi. *.■ I'll lO ^=< ^ 
-V 3 3T I' =.S-SA^" - - - 


;; 




« 




t 









MSXiifi0^«! 






FROM in 6230619 ♦'8Stte9B 

T>T3"= ♦ 1£B99>5 

i..n.-. HAS tf.tL' ^^A3:'»S. 



;::ai3-ai3, bJHi-JteeL.. fl'i^J-r'a-J;. =A 

£'■13. W I.S-- AKA?"* T' ,"=■•='=■.' = 

W1.K.VAC13. 'UA-V A^J-i•l■'^.■L■^■^-=1,^■i-. 

I't- -S--tr. t^<«K3> t«l3'J2=i-;il-Jfc«>e"' 
■Jo VI. ■'7 3A.i^^^^p-T--1^. V,'"5'<?^^ ?rt.'» 



ivse.. GIG fa. 

• PS'i'bAllST.LINKSgM^r^A 



•[ilX=i":^-« 

fl 2 1 B Jb^ ^3 1' T /; (7) T\ C C7) jg 






^^^(Dy -^ V zi >iif =:*^f M#(7) 

-f'O l-(7>^t LTTHE LINKS 
^xA^10O&7V-tf> hT-S^-f 

L^^4"'J.THE LINKS(7)^7^A 



FH011 IS 6230&19 ♦■esseTs 
-, c m-iii-- L-Ei^s. ifAC- ■-= ^* -ttp" 

•i>"E ;;■ -VAl,' *T'^ = 

9 I e -fa. 



^BoK ' fQES^Tafl-: h.ari i>E:-:ati!' 






THE LINKS(7)Mv:'3■V^^;^^Ctl- 
^i>ifyt)^$ir>tz(DX\ ZZXt<D 
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625119^ 


• 


eeaosa 
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=EI : 
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H— .^ 


^, IT5 w- *■ 


V ■ I^^St-i 


J-As--' 


Tl'-f 'Sy- 
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.?l;t.-( '-■r, 


,.- i-i^ 






1, 'h-^ ►.^ *^ 




T-. - -f 


I 'x/. 1 




■ .'... !='j' 


EPCil.iEE [. 


/.l.'L' ^ 


- u -. h 




A' J -i-T 


(^ ai,.= 
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l-.T 




MsmffiCi 
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rSHC 


'DNI'E 


aHl' tic: .. 
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NET-WORK GUIDE 



Msxv^i/;;^*^:!^ 




i£^=&^iiL/r^^i;<! 



u/ii.^'j:, ^nu^. 'it#gmis?r 




-Otz-^tz. tZht\ FS-AIFM 
■^-X'^^£^^<r)X\ FS-A1FMC7)7^' 

[■'X'^tz^'Ul 

'^ti^X'X$X. hi-ibi'Dt:^^ 

■oXLtl <Dt)^M^-^XhA.fzX 
id^hid t'Jm5t$A.ih^^Z. 
ttzL. tim^X'L^ ? 






^m^<^[^^w\m^\ 



itz. tVl.zmJt$A.i^Wr> 

A.fz. 

tn^Xh. ifz^tzm-^Xti:^^ 
X\ f <'(-T'ttiai^niiX^L^c7)[i 






I 






■■Of*. 



#^f?NET(7)Jl|llli^^fr t. 



(nm^^^A^fz^^, 

m^. mm~^fj:^'r>xi^^m%^ 
t^'^is. ■i'WenstFAx<'bo4- 

<J)tz. 

h. z(r)mimU(r>zttzi:m.i^ 
[ii::A.t'<7ymz'miii^^fzhi 

'%^. j-^y^-^<rM\^Xh^tz 






-iNPm ^'s^o* 



1^- 



■•^'■■■•'•r-' 
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'■Mtmt. sa'^rai iift^iii. 



STc Mm~ftr>X^mht£\.^t 



♦^^:^-;ucD5Sr$t4 


• j^X4^-^^-:/KACS 


acsoeoao 


•7X=t^— ^':/SPCS 


pcs0733e 


•PX4^-:i's-:;KMSX 


msxQOlBD 


•THE LINKS 


0040238 


•PC-VAN 


XEA49650 


•NIFTY-Serve 


SGE00030 


• EYE-NET 


GHFOOe 


•■7:7.-S'— ^5.'^K 


aaz193 



^[tt^^<Dm:%^ 
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100 DEFINT A-Z:SCREEN 1,2:WIDTH 32 

110 COLOR 15,1,1:KEY DFF:GDSUB 680 

120 B*=CHR*(31)+CHR*(29)+CHR*(29) 

130 REM •• »» • MAKE STAGE 

140 CLS:FDR 1=0 TO 8 

150 LOCATE 1*3+1 ,0:PRINT "7-f "+B*-t-"9I" 

160 NEXT :A=RND< -TIME) 

170 PRINT" I 1 

180 PRINT"-' ' — I — I — I — I — I — I — I I I — \ — I — 1 — r"- 

190 LOCATE 0,19 

200 PRINT" n n-i n m n n n 

210 PRINT" HHIIHHr'l HI HHI 

220 PRINT" --1 r- I H h H [-■ n I I H "n I 

230 PRINT STRINGS (30," w"> 

240 FDR 1=0 TO 2 

250 X<1)=RND(1)*250:Y ( I) =RND ( 1) *120+50 

260 NEXT:FDR 1=0 TO 8 ;BL < I ) =0 :NEXT :SC=0 

270 REM >•••••■ FIRE MOVE 

280 FOR 1=0 TD 2 

290 IF T(I) THEN T ( I) =T ( I) -1 iGDTD 340 

3210 X<I)-X<I)-INT(RND(1)#5)*2 

310 y (I)=Y (I)+INT(RND(n»9}#2-B 

320 PUT SPRITE I , (Xd) ,Y(1) ) ,8,0 

330 IF X(I)<-16 OR y{I)<30 OR Y(I)>210 THE 

N X (I)=250:Y<I)=RND(l)*120+50 

340 NEXT 

350 REM »■>■■ » WASBER (GER) 

360 K=STICK(0)+STICK(1) 

370 IF K=0 THEN 410 

380 LOCATE X*3+l , 4 :PRI NT " " 

390 X=X+(K=3)*(X<9)-(K=7>*(X>0) 

400 LOCATE X*3+l ,4:PRINT "--^" 

410 IF BTRIG(0)+BTRIG(1) THEN GQSUB 570 

420 FDR 1=0 TD 8 

430 IF BL(I)<>1 THEN 540 

440 FDR P=0 TO 2 

450 PUT SPRITE 1+3 , ( WX (I ) , WY (I ) ) ,5 , 1 

460 FOR K=0 TO 2 
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ii(iFOR~NEXT;L— yx-iiaJiLT 

FOR 1= TO 2 

-fn ^^L.^(D'^fz. 'J ^IJ^COJU- 

ifd^^lZh. 460^(75 

FOR K= TO 2 

C7) 2 ■7)g|5^(- fe Xn'j: < 1^ ^ L^(t 

^j:L^:6^bii,&LTt3.. itz. z<r) 

105 DIM X(n), Y (n), T(n) 
460^TA:^1 L /-OT 1 1^ Um^ A 

:$;c;)-y-A-C2^=liL 

a?rLXL^-5 650^T« 
IF SOHSTHEN- 

y\'f;?,=i7' (p— xa 




107 HS=500 

X';^„ CC75500£LVT(7);!)\ t U 
fe;l-fm/\-r:^:3j'X% ^n^^lT 

ibKLX^Xtu 



VOUR SCORE IS 



105 POINTS 



GREftT HUNTER 



uii! gjuiujwwujujiuui 



-5-'-Ax 






^moyync^^LMU 



Sn*^6*AttMSXCQI^g|5^ 



tz(Dt''Zntz ! 



10 A(l)sVDP<l) :A(Q>bA(1} AND ScHBFiF 
OR 1=0 TO 2sI=I HOD 2aVDP(l>=A(I) :F 
OR J=0 TO 60! NEXT J, I 



470 IF ABS{WX(I>-X(K) )<14 AND flB5(WY(I)-Y( 

K))<14 THEN GOSUB 550 

480 NEXT 

490 WY (I)=WY <I)+2:NEXT 

500 IF WY(I)>210 THEN BL ( I) =2 

510 CT=0:FOR F=0 TO B 

520 IF BL(F)=2 THEN CT=CT+1 

530 NEXT: IF CT=9 THEN 620 

540 NEXT:GOTO 270 

550 PUT SPRITE K , ( X <K) , Y (hi) ) , 10 ,2 

560 SC=SC+1 :T(K)=20;RETURN 

570 REM •#<■>»> WftSSER SET <';') 

580 IF BL(X) THEN RETURN 

590 BL(X)=1 :WX(X)=X*24+16:WY(X)=20 

600 LOCATE X*3+l ,0:PRINT '■:tn"+E*+"¥9" 

610 RETURN 

620 REM >> « ■•> END OF GAME 

630 LOCATE 8,5:FRINT "YOUR SCORE IS" 

640 LOCATE 9,10:PRINT SC ; " POINTS'" 

650 IF BOHS THEN HS^SC:LDCATE 9,15:PRINT 

"GREAT HUNTER! " 

660 IF STRI6<0)+STRIG(1) THEN 660 

670 IF STRIG<0)4-STRIG(1) THEN 130 ELSE 670 

6B0 REM — »••— CHARACTER 

690 READ Ct,D*:IF Cf="END" THEN 730 

700 FOR 1=0 TO 7:A=ASC(C*)*8+I 

710 VPOKE A,VAL("S<H"+MID;t{D*,I*2+l ,2) ) 

720 NEXT:GOTO 690 

730 READ CilF C=S963 THEN RETURN 

740 S*="":FOR K=0 TO 1 :READ D* 

750 FOR 1=0 TO 15 

760 S*=S*+CHR*<VfiL("!<H"+MID*(Df ,1*2+1 ,2) ) ) 

770 NEXT I ,K:SPRITE*(C)=S*:GOTO 730 

780 DATA 7,031C2040607C3F3F,-V,C03S0402063E 

FCFC 

790 DATA ':',1F1F0F0F07070007,I,F8F8F0F0E0E0 

00E0 

B00 DATA :t,070007070F0FlFlF,?l,E000E0E0F0F0 

F8F8 

810 DATA *,3F3F7C6040201C03,7,FCFC3E060204 

38C0,END, 

820 DATA 0,0000000505060E2D2E(3B37171 713080 

7,8080D0D05SBBBSDAEEEEF6F4F4E408F0 

830 DATA 1 ,00082B3A2E2A2B3A2A22082A2200210 

0,80889898E8A8A8FAA0A8FAA00BAA2220 

840 DATA 2,0406221C253D550A7B55120F1405000 

0,0020308030D03C2CB0B8A00C96524400 

850 DATA 5963, 
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aiSe-^LIST 



IBC DEFINT fi-U;SCREEN 1,2:WIDTH 32 
110 COLOR 15,5:KEY OFF :CLS iGDSUB 530 
120 INPUT "ARE YOU RICH? (1-9)";LV 
130 IF LV<1 OR LV>9 THEN 120 
140 WT=LV*5 

151? REM —• » •• START! 

160 X=0!Y=30:FaR 1=0 TO 2 :X ( I) =-20 :NEXT 
170 GF=0:VY=0:FR=0:TM=5:CL5 

130 LOCATE 0,22:PRINT " i — i i — i i — i r 
T I — I I — I " ; 

190 LOCATE 0,23:PRINT "— i | ' — il '-' | n i — ' 
'-' I n (-■ ■-'■ ; 

200 PLAY "V15T200L8O5CDEFRAFGAO6C" ,"yi2T20 
0L4O4CDCDCG8" 

210 REM ■■■■»•§ FLY FLY FLY! 
220 TM=TM-1 :TM=TM-(TM<0) 
230 K=STRIG(0)+STRIG(1) 
240 IF K=0 OR TM THEN 260 
250 FR=1-FR:TM=WT:PLAY "03CE6" 
260 VY=VY+.1-FR*.2:Y=Y+VY 
270 IF Y<-25 OR Y>212 THEN 390 
280 PUT SPRITE 0,(X,Y),10,0 
290 PUT SPRITE 1 , <X , Y ) ,G*FR , 1 
300 X=X+.5:IF X>255 THEN X=255:E0T0 390 
310 REM •••• — BIRDS FLY! 
320 FOR 1=0 TO 2 

330 PUT SPRITE 1+2 , (X ( I) , Y < I ) ) , 15 ,2+B 
340 X(I)=X(I)-I»2-2 

350 IF X(I)<0 THEN X < I ) =250 : Y < I ) =1 NT ( RND (1 
)*1B0) 

360 IF ABS(X(I)-X)<15 AND ABS(Y(I)-Y)<15 T 
HEN GF=1 
370 B=1-B:NEXT 
380 IF GF THEN 390 ELSE 210 
390 REM ■••>■ » GAME OVER 

400 PLAY "05A4E4FAGFG4E4C4" ,"04GFEDEDC" 
410 LOCATE 7,10 

420 PRINT "YOUR TRIP IS OVER!" 
430 LOCATE 6,13 

440 PRINT "THE RECORD IS";X;"m!" 
450 IF MX=>X THEN 480 
460 LOCATE 9,18 
470 PRINT "TODAY'S BEST! 
480 IF STRIG(0)+STRIG(1) 
490 IF STRIG(0)+STRIG(1) 
500 REM —•»■•■! CHARACTER 
510 READ C*,D*:IF Ct="END" THEN 550 
520 FDR 1=0 TO 7:A=ASC<C*) *8+I 
530 VPOKE A,VAL<"?'H"+MIDt (Df ,1*2 + 1 ,2) ) 
540 NEXTiGOTO 510 

550 READ C:IF C=5963 THEN RETURN 
560 S*="":FOR K=0 TD 1 :READ Dt 
570 FOR 1=0 TO 15 

580 S*=SI+CHR*(VAL("S<H"+MID*(D*,I*2+1 ,2) > ) 
590 NEXT I ,K:SPRITE*(C)=St:GOTO 550 
600 DATA 7,6125341245ECD356,END, 
610 DATA 0,071F3F7F7F7F7F3F3C0808080807070 
7,E0FeFCFEFEFEFEFC3C10101010E0E0E0 

620 DATA 1,0000000000000000010303030300000 
, 000000000000000080C0C0C0C0000000 

630 DATA 2,00003S24E47E0F0F070707030000000 

0,060A163C267CC6FCFEFEFFFF100F0201 

640 DATA 3,003824E47F1F0F0E070301000000000 

0,0000007EFFFFFEAAF3E1F06020 100000 

650 DATA 5963, 



' :MX = X 
THEN 480 
THEN 150 ELSE 490 
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ie» DEFINT ft-Z:SCREEN 1,2:WIDTH 32 

110 DEFSNG T:KEY DFF:6aSUB 650 

120 DIM P0<7,5) :CDLOR ,1 

130 VPOKE S<H2016,&H31 rVPOKE &H2017,!<HA1 

140 B*=CHR*(31 )+CHR* (29) +CHRt <29) !LV=lZi 

150 LV=LV+1:MS=0:A=RND<-TIME) 

160 REM >■■■■■» MAKE THE POUND 

170 CLS:FOR 1=0 TO 4:F0R J=0 TO 6 

1B0 PO(J,I)=0:LDCATE J*3+5,I»4+2 

190 PRINT "7-<"+Bt+"7'7":NEXT J, I 

200 FDR 1=1 TO LV»2 

210 X = INT<RND(n*7) : Y = INT (RND ( 1) *5) 

220 IF {X=0 AND Y=0) OR (X=6 AND Y=4) THEN 

210 
230 IF PO<X,Y) THEN 210 
240 P0(X,Y)=1 :NEXT 

250 LOCATE 2, 2:PRINT "7-1 ■'+B*+"9'7" 
260 LOCATE 26,18:PRINT "7<"+B*+"9'7" 
270 X=0:Y=0:VX=1 :VY=0:GOTO 320 
280 REM •>■■■■> JUMPING! 
290 K=STICK(0) !lF K=0 THEN 290 
300 VX=-(K=3)+<K=7) :VY=(K=5)*<Y<4)-(K=1)*( 
Y>0) 

310 IFX+VX=0 OR(X+VX=B AND Y<>4)THEN2S0 
320 IF VX THEN T=7.2:G0T0 380 
330 IF VY=0 THEN 420 

340 FOR I=Y*32-8 TO (Y+yY>»32-8 STEP VY 
350 PUT SPRITE , (X*24+16 , 1 ) ,9,0 
360 PUT SPRITE 1 , ( X»24+16 , 1 + 16) ,9 ,2 
370 NEXTsGDTD 420 

380 FOR I=X*24+8 TO (X+VX)*24+S STEP VX 
390 PUT SPRITE , ( I+S , Y*32-58+T-^2) ,9 ,0 
400 PUT SPRITE 1 , ( I+B , Y*32-42+T''2) ,9 ,2 
410 T=T-.6:NEXT 
420 X=X+VX:Y=Y+VY 

430 PUT SPRITE , ( X*24 + 16 , Y*32-8) ,9 ,0 
440 PUT SPRITE 1 , ( X*24+ 1 6 , Y*32+B) ,9 , 1 
450 IF X=8 THEN 620 
460 IF P0(X-1,Y) THEN 530 
470 FDR I=-l TO 1 STEP 2 

480 IFY+I>0 THEN IFPO < X- 1 , Y+I) THEN BEEP 
490 NEXT:FOR J=-l TD 1 STEP 2 



500 IFX-1+J>0THEN IFPQ(X-1+J,Y)THENBEEP 

510 NEXT 

520 IF STICK (0) THEN 520 ELSE 280 

530 REM — W »0 MISS I 

540 L0CATEX*3+2 , Y»4+2 :PRINT "':3I"+B*+"I]^J" 

550 MS=P1S+1:IF MS<LV THEN 270 

560 FOR 1=0 TD 4:F0R .J=0 TD 6 

570 IF PO(J,n=0 THEN 590 

580 LDCfiTEJ*3+5,I*4+2:PRINT'":JI"+E*+"=lf" 

590 NEXT J, I 

600 LOCATE 8,10:PRINT "GAME OVER!)" 

610 IF STRI6(0)=0 THEN 610 ELSE 140 

620 REM M l f t SUCCEED! 

630 LOCATE 5,10:PRINT "YOU CLEARED THE LEV 

EL" ;Ly 

640 IF STRIG(0)=0 THEN 640 ELSE 150 

650 REM •<•*>•> CHARACTER 

660 READ C*,D*:IF C*="END" THEN 700 

670 FDR 1=0 TD 7 : A=ASC <C*) *e+I 

680 VPDKE A,VAL("&H"+MIDi(D*,I»2+l ,2) ) 

690 NEXT:GDTO 660 

700 READ C:IF C=5963 THEN RETURN 

710 S$="":FDR K=0 TD 1 :REfiD D* 

720 FDR 1=0 TD 15 

730 S*=SS+CHR*(VAL("S(H"+MID*(D*,I*2+1 ,2) ) ) 

740 NEXT I ,K:SPRITE*<C)=St :GOTD 700 

750 DATA 7,001F7FFFFFFF7F1F,<,00F8FEFFFFFF 

FEF8 

760 DATA 9,C0FFFFFFFF7F1F00,T,03FFFFFFFFFF 

FC00 

770 DATA 9,0000000000808021,1,000000000012 

388A 

780 DATA 3,3192C8F2363FlFiF,7,089243C74AFA 

C4F8,END, 

790 DATA 0,7E7E3D15353C3C181F3E7F7F7E7A4A7 

E , 000000000080B000FF80FEFC00000000 

B00 DATA 1 ,007E7E3E3E76767676767676767F000 

, 000000000000000000000000000000^10 

810 DATA 2,007E7E6F373767CE9CB8B0E0F030000 

0,00000000000000000000000000000000 

820 DATA 5963, 
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liZi 

20 
3iZi 
35 
40 
50 
60 
70 

00 

90 

100 

110 
120 
130 
140 
150 
160 
170 
1B0 
190 
200 
210 
220 
230 
240 
250 
260 
270 
290 

300 

310 
320 
330 
340 
350 
360 
370 
380 
390 
395 
400 
410 
420 
430 
440 
450 
460 
470 
475 
480 
490 
500 
510 
520 
530 
540 
550 
560 



7r^D>n>n>LiST 



SCREENl ,0:NIDTH32:KEY GFFiCOLOR 15,4,4 

DIM CD(22,ia) ,C*C3,4) ,C(22,1B) 

L*=rNKEY* 

IF L*=<>"" THEN LE=VflL(L*) :L=1 

IF LE=0 OR LE>10 THEN LE=1 

FOR 1=1 TD 4 

C*<0,I)=CHR*(I67+I) 
C*{1 ,I)=CHR*(144+I) 
CS:(2,I)=CHRf (151+1) 
C$: (3 , 1 ) =CHR* (135+1) 
NEXT I:PRINT "** WAIT »*" 
X*=" 0000002000000-2" :Y .5= "0-200000002" 
SS=" 13 5 7" 
CR(1)=15:CR(2)=12:CR(3)=6 

' Sprite & Chr* 

FOR 1=1 TO 8 

READ fit :Bt=B*+CHR* (yftL( "?<H"+fi*) ) 
NEXT I 

SPRITES (0)=B*:PUTBPRITE 0, (0,4) ,4,0 
FOR J=0 TO 24 STEP B 
FOR 1=0 TO 7 

READ Af :B=VAL("?.H"+A*) 

VPOKE 10BS+l+J,B:VPaKE 

VPDKE 1216+I+J,B:VP0KE 

NEXT I ,J 

VPOKE 8209,97: VPOKE 8210 



1I60+I+J,B 
1345+I+J,B 

,241 
VPDKE 8211 ,193: VPOKE 8213,17 

' n" /y C-1-79 

READ AL:A1=AL 
FDR y=0 TD 18 STEP 2 
READ ft*,Bf 

A*=RIGHT*(BINf (VAL("?(H"+A*) ) ,12) 
A*=At+RIGHTf (BINf !VAL( "?.H"+Bf ) ) ,12) 
FOR X=0 TO 22 STEP 2 

A=VAL ("S^B"+ (MID*(A*,X + 1 ,2) ) ) 
Z=X:C(Z,Y)=A 



" '■QPEROj " 

"LEVEL=" :LE 

THEN L=L+1 :GOTO 290 



STICK(I) :IN*=INKEY* 
STRIGd) 



THEN 
THEN 



540 
610 



NEXT X,Y 

LOCATE 24,0:PRINT 

LOCATE 24, 3: PR I NT 

IF LO0 AND LOLE 

FOR Y=0 TO IB STEP 2 
FOR X=0 TO 22 STEP 2 

A=C(X , Y) :C0 (X , Y) =C<X , Y) :A1=AL 
LOCATE X,Y: PRINTCJ ( A , 1 ) +Ct ( A ,2) 
LOCATE X ,Y + 1 :PRINTC*(A,3)+Ct-!A,4) 

NEXT X,Y :L=0 

' y-o 

SET BEEP 1 ,4 
ST=STICK(0) OR 
TG=5TRIG(0) OR 

IF INSTR<S* ,STRi^ (ST) ) <>0 

IF TG=-1 
IF INt="" THEN 530 

IF ASC(IN*)=27 THEN 1220 
GOTO 470 

X=VAL(MID*(X*,ST»2,2) ) 
Y=VAL(MID*(Y*,ST*2,2) ) 
IF Xl+X=-2 OR Xl+X=24 OR 
+Y=20 THEN BEEP:GDTD 470 
570 X1 = X1 + X ;Y1 = Y1 + Y 

PUT SPRITE 0, (Xl*B,Yl*e+4) ,4,0 
GOTO 470 

' I!7 i'B\' 

IF CO(X1,Y1)<>0 THEN BEEP:GaTO 5B0 

CR=1 

PUT SPRITE 0, (Xl»S,Yl*B+4) ,CR(CR) ,0 

INS=INKEYt:RG=STRIG(3) 

TG=STRI6(0) OR STRIGd) 

IF IN*="" THEN INt=" " 

IF TG=-1 THEN 710 



Yl+Y=-2 OR Yl 



580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
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680 IF RG=-1 DR ftSC<IN*)=13 THEN 750 

690 IF ftSC(IN.$>=24 THEN 5B0 

700 GOTO 640 

710 CR=CR+i:IF CR=4 THEN CR=1 

720 PUT SPRITE , (Xl»a , Y 1*8+4) ,CR (CR) ,0 

730 FOR 1=1 TO 50:NEXT I :GOTO 640 

740 ' X^7]'V 

750 FDR X2=0 TO 22 STEP 22:SI=0 

760 IF X2=0 THEN SU=-2 ELSE SU=2 

770 FOR X3=X1+SU TO X2 STEP SU 

780 IF X3=-2 DR X3=24 THEN GOTO 830 

790 IF CO(X1+SU,Y1)=0 THEN 830 

800 'if X3=X1+SU THEN C1=C0(X3,Y1) 

810 IF SI=0 AND C0(X3,yi)=CR AND C0(X3- 

SU,yi)=Cl THEN GDSUB 860 

820 IF C0CX3,YU<>C1 THEN Cl=9 

830 NEXT X3,X2 

840 X3=Xl:GaSUB 860:GDTD 920 

850 ' )iyl\n7~ -J 

860 FDR X4=X1 TO X3 STEP SU 

870 LDCATEX4,Y1 :PR 1 NTC* (CR , I) +C* <CR ,2) 

880 LOCATE X 4 , Yl + 1 :Pr;INir.F (nR,3) +Ct (CR,1) 

890 CD (X4 ,Y1)=CR 

900 NEXT X4:SI = 1 iRETURN 



910 



YlJl-i' 



920 FDR Y2=0 TO IB STEP 1B:SI=IZI 

930 IF Y2=0 THEN SU=-2 ELSE BU=2 

940 FOR Y3=YWSU TO YT '.WfP HI) 

950 IF Y3=-r OR Y3=20 IHEN GO I D 1000 

960 IF CD(X1 ,Y1+SU) =0 THEN 1000 

970 IF Y3=Y1+SU THEN CI =C0 ! X 1 , Y3) 

980 IF SI=0 AND CD<X1,Y3)=CR AND C0(X1 

Y3-SU)=C1 THEN GDSUB 1030 

990 IF C0(X1 , Y3><:;C1 THEN Cl=9 

1000 NEXT Y3,Y2 

1010 Y3=yi:GDSUB 1030:GDTO 1090 

1020 ' Y-7.';'!J7"i' 

1030 FOR Y4=Y1 TO Y3 STEP SU 

1040 LDCATE>:i,Y4 :PR I NTCI (CR , 1 > +C* (CR ,2) 

1050 LOCATEXl ,Y4+1 :PRIN1 Ct (CR ,3) -i-Cf (CR ,4 ) 

1060 CO (XI ,Y4)=CR 

1070 NEXT Y4:SI=1 :RETURN 

1030 ' 7hiygiJ 

1090 A1=A1-1:IF A1=0 THEN 1110 ELSE 580 

1100 ' 7'.i7 ^T"i7 

1110 CH=CD(0,0) 

1120 LOCATE 5,20:PRINT "[.;heck " 



1130 FDR Y=0 TD 18 STEP 2 
1140 FDR X=0 TD 22 STEP 2 
1150 IF CD(X,Y)<>CH THEN 1220 
1160 NEXT X,Y 

1170 ' Cl ^ar' 

1180 LOCATE 5,20:PRINT "Clear!' 

11S5 SET BEEP 4,4:BEEP 

1190 LOCATE 5,21:PRINT ■* — Hit Space — " 

1195 IF INKEYiO" " THEN 1195 

1200 CLB:LE=LE+1 :GDTD 290 

1210 ' Nd Clear 

1220 LOCATE 5,20:PRINT "Fail 

1230 LOCATE 5,21:PRINT " — Hit Spsce! — " 

1240 IF INKEY*<>" ■■ THEN 1240 

1250 CLSiGDTD 380 

1260 DftT*^ 0,1B,1C ,FE ,FF ,Fh , IC , 10 

1270 DATA 0,0,3F,3F,3F,3F .3F,3F,0,0,FC,FC 

1280 DATA FC,FC,FC,FC,3F,3F ,3F,3F,3F,3F,0 

1290 DATA 0,FC ,FC ,FC,FC,FC ,FC ,0 ,0 

1300 ' Level 1 

1310 DATA 16, 33FC,32AG, 3955, 3157, 3955, 3557 
,3955,3557,3055,3954,3157,3550,311.55,3556,3 
D55 ,3556 ,3D54 ,3556 ,32AS ,33FC 

1320 DATA 20,32AA,3AAS,3E31D,374E,3B0D,370E 
,3B5D,375E,3954,3156,3954,3156,3B5D,375E,3 
B0D,3?0E,3BlD,374E,32AA,3AfiS 

1330 DATA 32,32AA,3A20,3EAA,3A22,3E75,35C0 
,3AB0,3aE2,3AB0,3BEA,3AE(0,3aEA,3SB0,38EA,3 
035,35DF,3SAA,3A2B,30AA,3A2B 

1340 DATA 68, 3C00, 3003 ,3000,3000 ,30AE, 3750 
,305D,3BA0, 3065, 3A60,309A, 3590, 30AE, 3750, 3 
05D ,3BA0, 3000, 3000 ,3C00,3003 

1350 DATA 2a,3000,33FC,32EE,33FE,32DE,33FE 
,32DE,33FE,3ECE,302A,3EEE,35D6,3EDE,35D6,3 
ECE , 3028 , 3F55 , 3540 , 32AA , 3554 
1360 DATA 45,3241 ,31AS, 3082, 32A2,32D2, 3402 
,32BA,3AAB, 3056, 3E70, 3006, 3700, 306A, 3690, 3 
2AA,36A0,30A6,32A2,32A1 ,3254 

1370 DATA 48, 3000, 3000, 302F,3FB0,3F4B,3EiF 
,3162, 3894, 32A8,32A8,32AQ,32AB, 3 162,3894, 3 
F4B,3E1F,302F,3F8C,34FC,33F0 

1380 DATA 200,3600,3000,3000,3000,3000,303 
0,3C01 .3402,3201 ,340C ,323C ,328C ,343C , 3281 , 
3000,3000,3401 , 3403, 3E08, 3306 
1390 DATA 200,3000,3000,3000,3000,3000,300 

0,3000,3000 ,3000,3000 ,3000,3000,3000,3000, 

3000,3000 ,3000,3000,3000 ,3000 
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